home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2006 May / PCWMAY06.iso / Software / Resources / PaperCut Quota 6.1 / pc-setup.exe / {app} / WebAdmin / Admin.asp next >
Text File  |  2005-07-05  |  2KB  |  68 lines
  1. <%@ Language=VBScript %>
  2. <%' (c) Copyright 1999-2004 PaperCut Software Pty. Ltd. %>
  3. <!-- #INCLUDE FILE="includes/PCCommon.inc" -->
  4. <%
  5.     Dim strCheckURL
  6.     strCheckURL = GetVersionCheckURL
  7.  
  8.     If Request("vc") <> "" Then
  9.         Response.Redirect strCheckURL
  10.     End If
  11.  
  12. %>
  13. <!-- #INCLUDE FILE="includes/header.inc" -->
  14. <h1><%=GetText("Welcome")%></h1>
  15. <p>
  16.     <%=GetTextReplace("AdminInstr", Array(gstrProduct))%>
  17.  
  18. <%
  19.     ' Try to see if we have permissions to see the database
  20.     if gblnIsAdmin then
  21.  
  22. %>
  23.  
  24. <p><%=GetText("ChooseOption")%>
  25. <p><ul>
  26. <li><a href="UserList.asp"><%=GetText("UserAdmin")%></a></li>
  27. <li><a href="OtherCharges.asp"><%=GetText("OtherCharges")%></a></li>
  28. <li><a href="LogReport.asp?ReportList=Y"><%=GetText("QuickReports")%></a></li>
  29. <li><a href="LogReport.asp"><%=GetText("AdhocReports")%></a></li>
  30. <li><a href="Log.asp"><%=GetText("ViewRecentPrintJobs")%></a></li>
  31. <% if gblnHasNetCharging then %>
  32. <li><a href="NetLog.asp"><%=GetText("ViewRecentNetUsage")%></a></li>
  33. <% end if %>
  34. <li><a href="TransLog.asp"><%=GetText("ViewRecentTransLog")%></a></li>
  35. <% if gblnHasChargeBack then %>
  36. <li><a href="AccountList.asp"><%=GetText("AccountAdmin")%></a></li>
  37. <% end if %>
  38. <li><a href="Admin.asp?vc=Y"><%= GetText("UpdateCheck")%></a></li>
  39. </ul>
  40.  
  41.  
  42. <%    else
  43. %>
  44. <p style="color: #FF0000"><%=GetText("ErrorDatabaseAccess")%></p>
  45.  
  46. <%
  47.     end if
  48.  
  49.  
  50.     If Not IsPreferredLanguage() Then
  51.     %>
  52.         <p> </p>
  53.         <p> </p>
  54.         <DIV class="webAdminMessage">
  55.         PaperCut Web Tools have detected that this is not your preferred language.
  56.  
  57.         <BR><BR>
  58.             If you want to translate the PaperCut web tools into your language, see the
  59.             file "WebAdmin\includes\lang_en.inc" on the server, or contact us
  60.             at support@papercut.biz.
  61.         </DIV>
  62.  
  63.     <%
  64.     End If
  65. %>
  66.  
  67. <!-- #INCLUDE FILE="includes/footer.inc" -->
  68.